#Figure 3

load("Figure 3.Rdata")
special<-c("implement", "polic", "refuge", "justi", "displac", "reintegr",
           "children", "demobil", "ceasefir", "weapon", "disarma", "sexual",
           "withdraw", "ddr", "ssr", "peac", "agreement", "militari")

plot<-as.data.frame(words)
names(plot)<-"count"
plot$words<-rownames(plot)

fig3<-plot[plot$words%in% special,]

p<-ggplot(data=fig3, aes(y=count, x=reorder(words,count)))+
  geom_col()+
  coord_flip()+
  ylab("Frequency Word Occurs")+
  xlab("CPA Implementation Related Word Stems")+
  theme_bw(base_size=15)
p

pdf("Figure3.pdf")
p
dev.off()


rm(p,special, plot, words, fig3)
